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MODULE RMSPUTERR (LANGUAGL (0415552) ’ 
IDENT = ‘'v04-000' 
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3 5 1 BEGIN Fy 

: 6 0006 1! 

b 8 id i "ial it a tate aa ln amt i atta 
Ps ; fe 
3 9 $009 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; \ pett : :* ALL RIGHTS RESERVED. * 
Ps .* oa 
: 18 pois 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
F 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS SU LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
5 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY w 
: 17 0017 1 !* UTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; + Bote ! :° TRANSFERRED. . 
3 '® . 
: 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
b4 ; Bos¢ : ys CORPORATION. * 
é :* e 
4 4 $052 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
b4 2 Bose : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
e e 
; $$ 0097 1 !e * 
: eB 0028 1 Sere earae eee e eee eee eRe E TEAR AAA ARARARAARE Eee R eee 
3 9 0029 1 

3 50 $080 1 tee 

; 1 0031 1! 

; $$ 4 : : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

: 3 0034 1 | ABSTRACT: 

; 35 0035 1! SPUT and SUPDATE specific error cleanup routines 

ae 0036 1! 

or 0037 1! 

; $3 0038 1 ! ENVIRONMENT: 

3 9 0039 1! 

: 40 0040 1! VAX/VMS OPERATING SYSTEM 

3 41 0041 1! 

; ¢ 98 4 1 !-- 

a's 0043 1 

3; (46 044 1! 

: 45 045 1 ! AUTHOR: Todd M. Katz CREATION DATE: 17-Jul-82 

: 46 0046 1! 

; 2 0068 1 i Modified b 

r ' i : 

3 49 ire 1! : . 

; $0 0050 1! v03-014 MCNO003 Maria del C. Nasr 04-Apr-1983 

; 2} ith : } Change Linkage of RMSNULLKEY to RL$JSB. 

; 38 0088 1! v03-013 MCNO002 Maria del C. Nasr 15-Mar-1983 

; ee p20 : More Linkages reorganization 

; 56 P28 1} v03-012 MCNOOO1 _. Maria del C. Nasr 28-Feb-1983 

Pe 0057 1! Reorganize Linkages 
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v03-011 TMKO004 Todd M. Katz 15-Feb-1983 

If the deletion of the RRV fails in RMSPUTUPD_ERROR, do not 
delete the primary data record completely, and then create a 
pointerless RRV at the end of the bucket. This is what is 
done currently. Just delete the primary data record by calling 
RMSDELETE_UDR so that it is deleted according to the normal 
rules for primary data record deletion. This does leave the 
possibility of eeeras a RRV point to tt (if the RRV 
deletion fails and the primary data record is completely 
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1! 
; 1 
3 Ba 
; 1! 
: 1! 
1! 
; 1: 
; .? 
3 1! 
3 1! 
; «668 068 1! deleted), but such a occurance would also exist if the 
; H 34 ! } pointerless RRV were deleted as part of a CONVERT/RECLAIM. 
; av 0071 1! v03-010 TMKO003 Todd M. Katz 05-Jan-1983 
as 7 0072 1! The routine RMSPUTUPD_ERROR was saving, soretoy and then 
i 0075 1! restoring the current NRP key of reference while all newly 
; es Booe : added SIDRs were being deleted. This is no longer necessary. 
; 8676 0076 1! v03-009 TMK0002 Todd M. Katz 19-Sep-1982 
3 77 0077 1! Add support for pretegue 3 SIDRs. This involves setting AP to 
; 0078 1! 3 instead of to | each time RMSRECORD_KEY is called to extract 
; He aide : the key of the SIDR which is to be located and deleted. 
ie} 0081 1! v03-008 KBT0229 Keith B. Thompson 24-Aug-1982 
: : et) : } Reorganize psects 
; «684 0084 1! v03-007 TMKO001 _ Todd M. Katz _ 17-Jul-1982 
cs oe 0085 1! Completely revised the routines in this module because of 
3 0086 1! changes in the routines they interface to. 
;.6 «CUGY 0087 1! 
; «6888 0088 1! 
; «(Bg 0089 1 !eeeee 
ae 0090 1 
; 4 ad : LIBRARY ‘RMSLIB:RMS'; 
; 93 009 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 
: 94 0158 1 
; 0159 1 ! Define default PSECTS for code 
>! Se 0160 1! 
e. OF 0161 1 PSECT 
; 98 B16¢ 1 CODE = RMSRMS3(PSECT_ATTR), 
; 99 016 1 PLIT = RMSRMS3(PSECT_ATTR); 
; 100 0164 1 : 
; 101 B12 1 ! Linkages 
3 Oe 166 1! 
; 10 0167 1 LINKAGE 
: 104 0168 1 L_ERROR_LINK1, 
: 105 a4 1 L_ERROR_LINK2, 
: 106 0170 1 L_JSB, 
; 107 0171 1 L_LINK_7_10_11, 
; 108 HEA 1 L-RABREG_ 4567, 
: 109 0173 1 L_RABREG 67, 
3 110 174«1 L_RABRE 
> 117 175 1 L-PRESERVEI; 
3 ie 176 1 
s 9% 0177 1 : External Routines 
; («16 0178 1! 
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RMS .SRCIRMSPUTERR.B32; (2) 


RMSPUTUPD_ERROR 


XSBTTL _‘RMSPUTUPD ERROR’ 
GLOBAL ROUTINE RMSPUTUPD_ERROR : RLSERROR_LINK2 NOVALUE = 
is 


FUNCTIONAL DESCRIPTION: 


This routine's respons tei t ity is to delete SIDR entires and the user 
data record on $PUT/SUPDATE errors. 


If this routine is called with the index descriptor for the primary key 
of reference then all SIDR entries are deleted, otherwise, the deletion 
of SIDR entries begins with 1 less than the current index descriptor. 


UEWN-OOe~ 
3 


The user data record and any RRV associated with it are deleted only if 
the error occurred on a $PUT. The user data record will not be deleted 
if the error occurred on ony type of a SUPDATE (a regular SUPDATE or a 
SPUT converted into a SUPDATE). 

CALLING SEQUENCE: 
RMSPUTUPD_ERROR () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


AAPA BEER LLLEL 


MIAMI IPI PONINININININ 4 2 OS S SS QOOOOCOOCO oO 
AEUN—OOO NOU EWM OOO NAME WOODS NMR mee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOOOSOSOOOSCOOOCOCOOOOOOOOSOOOOSOSOSSOOOCOOOCOCOOCOOCOOOOCO OOOO OCOOOOOOOO 


ne ee ee ee ee ee ee ee ee SS SY 


. . 
. oe 
. . 
oo . 
. . 
oe . 
. . 
. o 
. . 
oO oe 
. . 
° * 
. . 
a 
. . 
oe 2 
. . 
oO a 
. . 
. * 
. . 
o o 
. . 
. o 
. . 
. a 
. . 
oO * 
. . 
. e 
. * 
oO o 
. + 
oO . 
. . 
° ° 
. . 
e e 
. . 
o e 
. . 
. . 
. . 
oO . 
. . 
6 a 
. . 
o a 
. . 
. ce 
. . 
° e 
. ~ 
. ° 
. . 
° oO 
. . 
o e 
. . 
. . 
. . 
a e 
. . 
o e 
. . 
° eo 
. . 
. e 
. . 
* e 
. . 
° . 
. . 
o ° 
. . 
. e 
. . 
° . 
. . 
. e 
. . 
° e 
> . 
° oO 
. . 
° a 
. . 
. . 
. . 
° o 
. . 
. . 
. . 
© . 
. . 
. ° 
. . 
o . 
. . 
. . 
. . 
* o 
. . 
’ 
. . 
o . 
. . 
. . 
. . 
@ . 
. . 
o . 
. . 
. . 


0 

4 

5 

6 

7 

8 

9 

0 

4 

5 IDX_DFN - address of index decriptor 

6 IDX$B_DESC_NO - descriptor number (index into update buffer) 
7 2 IDX$B_KEYREF - key of reference 

: 3 IDX$W_MINRECSZ - minimum record size necessary to contain key 
0 2 - address of IFAB 

1 § IFBSW_KBUF SZ - size of a keybuffer : 

¢ IFBSB_NUM_KEYS - number of keys in the file 
o7 § IFB$B_PLG_VER - prologue version of the file 
65 2 AB - address of IRAB 
66 2 IRB$B_CACHEFLGS - flags for bucket retrieval routines 
67 2 IRB$L_CURBDB - address of current buffer descriptor block 
68 2 IRB$L_KE YBUF - address of contigious keybuffers 
69 2 IRB$B_MODE = access mode of caller 

70 IRBS$L_NXTBDB - address of a BDB (used to hold RRV bucket BDB) 
71 IRB$W_PUTUP_I - of user data record 

Le: IRB$L_PUTUP_VBN - VBN of user data record 

7 IRB$W_UDR_1I - 10 of current primary data record 

74 IRBS$L_UDR_VBN - VBN of current peaery data record 

75 8 IRB$V_UPDATE - if set, current operation is an SUPDATE 

6 ZR IRBS$L_UPDBUF - address of internal update buffer 

78 41 RAB - address of RAB 

79 4! RABSL _RBF - record buffer containing user data record 
$0 tz RABSW_RSZ - size of user data recor 

36 45 OUTPUT PARAMETERS: 

8 46 NONE 
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tae tt RMSPUTUPD_ERROR 18-808- 1382 93:38:33 AMS SREIRMEPUTERR 632, . (2). 
; ae 
re IMPLICIT OUTPUTS: 
9 IRB$B_CACHEFLGS - the bit CSHSV_LOCK will be set 
; i ROUTINE VALUE: 
i NONE 
55 i SIDE EFFECTS: 
2$ : 
5 ! 
2 : ALL new SIDR entries inserted during the current operation before the 
9 : error occurred are deleted as is the user data record and any RRV 
60 : pointing to it if a new data record was inserted during the course 
61 : of the operation before the error occurred (ie - the operation was 
6¢ ! a $PUT). 
6 ! 
64 ! oo 
65 


BEGIN 


EXTERNAL REGISTER 
1DX_DFN STR 
-RAB 


“STR; 


GLOBAL REGISTER 
R_REC_ADDR_STR; 


' If the file allows secondary keys then delete any of those that had been 
newly inserted before the error occurred. 


AP is trashed. 
| 
| 
| 

if .IFABCIFBSB_NUM_KEYS] GTRU 0 
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is qpereting on the current primary data record. This is done b 


saving the RFA address of the current primary data record, if there 
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is one, and replacing it with the RFA address of the user data record 
whose SIDR entries are to be deleted. 


SAVE_UDR_VBN = .JRABCIRBSL_UDR_VBN); 
SAVE ~UDR~1D  IRABLIRB$W-UDR~1D); 


IRABCIRBSL_UDR_VBN] = .IRABCIRBSL_PUTUP_VBN); 


BEGIN 

LABEL | 
ENTRY; 

LOCAL 
KREF : BYTE, 
SAVE_UDR_ID : WORD, 
SAVE _UDR_VBN : LONG; 

0 ! The routine which is called to deleted each SIDR entry, | 
91 ' RMSDELETE_SIDR, operates only on the current primary data record. 
4 ' However, this routine maybe called to delete SIDR entries of a record 
% i other than the current eater data record, Therefore, in order to 
94 i make use of RMSDELETE SIDR, RAS must fool it into believing that it 

i 
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IRABCIRBSW_UDR_ID] = .IRABCIRBSW_PUTUP_IDJ; 
! The user data record whose SPUT/SUPDATE resulted in the error maybe 
! found in the user's record buffer. The keys of the SIDR entries to 
be deleted maybe extracted from it. 
REC_ADDR = .RABCRABSL_RBFI; 
! If this routine was called with the index descriptor for the primary 
; ney then all SIDR entries for the user data record are deleted; 
! otherwise, all SIDR entries up until the entry that was being 
} inserted when the error ocurred are deleted. 


KREF = .1DX_DFNCIDXS$B_KEYREF; 
RMSKEY_DESCTO); 


WHILE (RMSGET_NEXT_KEY() 
(. IDX_DFNCIDX$B_KEYREF] NEQU .KREF)) 


RMSPUTUPD_ERROR 
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! Delete each SIDR entry that had been inserted before the error 
: occurred. 


ENTRY: BEGIN 
BUILTIN 
AP; 


Under the following circumstances, the SIDR entry for the current 
index descriptor being processed will not be deleted: 


! 

i 

! 1. The operation being pecverace when the error occurred was an 

: SUPDATE and no new SIDR was inserted for this key of reference. 
} ¢: RMS does not have read access to the user's record buffer. 
I 
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No new SIDR was inserted for this key of reference because the 
user's data record was too short ‘9 contain such a key. 


F (, IRABCIRBSV_UPDATE] 


(NOT .BBLOCKC.IRABCIRBSL_UPDBUF) + .1DX_DFNCIDX$B_DESC_NO], 
UPD$V_INS_NEWJ)) 


RASHOREAD _LONG (. RABCRABSW_RSZ], .REC_ADDR, .IRABCIRB$B_MODE]) 
yg { RABCRABSY_RSZ3 LSSU .IDX_DFNCIDX$W_MINRECSZ)) 
LEAVE ENTRY; 
! Extract into keybuffer 2, the secondary key for the key of 
! reference being processed from the user's record buffer. Check 


! 
' 
! whether the key is null and only delete the SIDR entry for this 
} key of reference if it is not. 
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GLOBAL REGISTER 

R_BDB; 


RMSRECORD_KEY (KEYBUF_ADDR(2)); 


AP = 1; 
IF RMSNULLKEY (KEYBUF_ADDR(2)) 
RMSDELETE_SIDR(); 
END; 
Restore the RFA of the current primary data record (if there is one) 
to its corresponding location in the IRAB as part of the next record 
positioning context as RMS has finished deleting SIDR entries. 


IRABCIRBSL_UDR_VBN] = .SAVE_UDR_VBN; 
1RaB IRBSWLUDR-IDJ] = .SAVE-UDR@ID; 


! If the error occurred during a $PUT, then a user data record was 

! inserted before any SIDRs and must be deleted. If the error occurred 

! during an SUPDATE then just the deletion of any new SIDR entries required 
! by the SUPDATE is sufficient to restore the record to the state it 

! occupied prior to the SUPDATE. None of the SIDR entries for the user data 
' record existing in the file before the SUPDATE are deleted until all the 
' new SIDR entries are inserted so there are no SIDR entries to re-insert, 
! and of course, the user data record itself can never be deleted because 

! it existed in the file prior to the SUPDATE. 


NOTE that it is possible that RMS will also have to delete an any for this 


! new user data record even though RRVs are never created cur tne the 

! insertion of a new primary data record. This is because RMS will release 
! the primary data bucket containing the new record during index updates 

! and SIDR entry insertions, and the action of some other stream may cause 
! the pean oqaetome this new primary data bucket to split and an RRV 

' created for it. 


NOT . IRABCIRBSV_UPDATE) 
BEGIN 
RMSKEY_DESC(0); 


Attempt to position to the user data record, and delete it if able to 
succes fut ly gressten to it. Perform the FIND_BY_RRV in a way such 
that if an RRV was created for the new primary data record between 
the time this stream released the primary data bucket and reclaims it 
below, the RRV bucket will be locked dur ng the positioning to the 
user data record, and the address of the BDB for it placed in 
IRBSL_NXTBDB. 


iRAB 1RBSB_CACHEFLGS] = CSHSM_LOCK; 
IRABLIRBS$L-NXTBDB) = 0; 


IF RMSFIND_BY_RRV (.IRABCIRBSL_PUTUP_VBNJ, .IRABCIRB$W_PUTUP_IDJ, 1) 
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THEN 


BEGIN 

GLOBAL REGISTER 
R_BDB_STR 
R-BKT-ADDR; 


! If the new user data record is found not to be in its original 
' bucket, then the RRV for it must be deleted. 


if (BDB = .IRABCIRBSL_NXTBDB]) NEQU 0 
THEN 


BEGIN 
IRABLIRBSL_NXTBDB) = 0; 
RMSDELETE_RRV() ; 


Delete the new user data record. 


BDB = .IRABCIRBSL_CURBDB); 
IRABCIRBSL_CURBDBJ = 0; | 


RMSDELETE_UDR(); 


! Mark the primary data bucket that contained the new user data 
record dirty, and release it. 


BDBCBDB$V_DRT) = 1; 
RMSRLSBKTTO); 


END; 


TLE RM3PUTERR | 
ENT \V04-000\ | 
N 


RMSDELETE_RRV, RMSDELETE SIDR 
TRN RMSDELETE-UDR, RMSFIND_BY_RRV 
-EXTRN RMSGET_NERT_KEY 

-EXTRN RMSKEY-DESC, RMSNOREAD LONG 
-EXTRN RMSNULCKEY, RMSRECORD_REY 
-EXTRN RMSRLSBKT 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
007D 8F 8B 00000 RMSPUTUPD ERROR:: 
POSHR 


#*M<RO,R2,R3,R4,R5,R6> ; 0191 
00B2 CA 95 000 TSTB =—s-_:« 178 (I FAB) : 0278. 
03 12 000 BNEQ 1$ : 
0091 31 6 OA BRW 5$ ; 
55 9080 C9 D 1$: MOVL § 176(IRAB), SAVE_UDR_VBN ; 
: 086 C9 BO 0001 MOVW 18 (IRAB), SAVE“UDR7ID ; 
C A9 D0 0001 MOVL 120(IRAB); 176(TRABY : 
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RMSPUTUPD_ERROR 


TERR 


RM 
v04= 


#4, SP 
#*°M<RO,R2,R3,R4,R5,R6> 


ADDL2 
POPR 
RSB 


4 cO0 O00es 
F BA ES 7$: 
85 OO0E 
RMSRMS3 + 0000 


007D i 


SE 


Routine Base: 


234 bytes, 


; Routine Size: 


dD 5 
1ezSep- tobe 15:01:37 EANS.SRCUAASPUTERR-B 


! If there is an accessed bucket associated with IRBSL_NXTBDB, 
then release it. 


iF (BDB = .IRABLIRBSL_NXTBDBJ) NEQ 0 
THEN 


; 391 453 1 sserTL *RMSCLEAN_BDB' 

; 2 “ : : GLOBAL ROUTINE RMSCLEAN_BDB : RLSERROR_LINK1 NOVALUE = 
> 394 4 : 1 !e4 

; 395 457 1! 

3 38 $2 : FUNCTIONAL DESCRIPTION: 

; 398 460 1! This routine's responsibility is to release any buckets that 
$ 0461 1! are currently accessed. 

; «6 0462 1! 

; 401 046 1! 

; 40 464 1 ! CALLING SEQUENCE: 

; 40 465 1! 

3 0466 1! BSBW RMSCLEAN_BDB() 

; 405 0467 1! 

: 0468 1 ! INPUT PARAMETERS: 

; 40 0469 1! NONE 

; 408 470 1! 

; 409 471 1 ! IMPLICIT INPUTS: 

; 410 0472 1! 

3; «6411 0473 1! AB - address of IRAB 

; 716 0474 1! IRB$L_CURBDB 

: 41 0475 1! IRB$L_LOCKBDB 

; 616 0476 1! IRBSL_ _NXTBDB 

> 415 0477 1! 

; 616 0478 1 ! OUTPUT PARAMETERS: 

3; 417 0479 1! NONE 

; 418 0480 1! 

: 4619 0481 1 ! IMPLICIT OUTPUTS: 

: 4620 0482 1! NONE 

: 421 04835 1! 

: 422 0484 1 ! ROUTINE VALUE: 

: 423 0485 1! NONE 

: 426 0486 1! 

; 425 0487 1 ! SIDE EFFECTS: 

: 626 0488 1! 

: 627 0489 1! If there is a bucket associated with IRBSL_NXTBDB, it is released. 
: 428 0490 1! if there is a bucket associated with IRB$L_LOCK BoB, it is released. 
: 4 nea) ! if there is a bucket associated with IRB$L_CURBDB, it is released. 
: 431 0493 1 !-- 

3 $38 0494 1 

3; 43 0495 BEGIN 

3 rk 049 

; 435 049 EXTERNAL REGISTER 

s 6 0498 COMMON_RAB 

3 GLOBAL eestsTen 

; : _REC_ADOR, 

g R_IDX_DFN, 

3 R_BDB_STR; 


0-74 
B32; 


rae 


5 
RMSPUTERR bes 1984 01:58:54 AX-11 Bliss-32 V4.0-74 Pp 1 RM: 
voe-000 RMSCLEAN_BDB 1orgeen 138s 95:09:39 Lams seeinasparenn esac age voi 


; Routine Size: 62 bytes, Routine Base: RMSRMS3 + OOEA 


3 510 BEG! ; 
: 449 11 TRABL Rast NXTBDBJ = 0; : 
: 450 \¢ RMSRLSB KT(0); 3 
; 683 a END; 3 
3; «6 ¢ 21g ! If there is an accessed bucket associated with IRBSL_LOCK_B8DB, , 
; tee 218 i then release it. 3 
: 456 518 it (BDB = .IRABCIRBSL_LO(K_BDB]) NEQ 0 : 
; 457 519 HEN : 
; 458 520 BEG] 3 
: 459 3 1 TRABEIRBSL LOCK_BDB) = 0; ; 
; 460 ; RMSRLSBKT(O); $ 
: 661 5 END; ; 
: 46¢ 0524 | : 
; 46 0525 ! If there is an accessed bucket associated with IRB$L_CURBDB, | 3 
3 re ¢: Be $ then release it. 3 
; 466 0528 if (BDB = .IRABCIRB$L_CURBDB]) NEQ 0 ; 
+ 667 05 9 THEN ; 
: 468 0530 BEGIN : 
: 469 0531 JRABLIRBSL CURBDB] = 0; : 
: 470 R256 RMSRLSBKT(O); 3 
; 471 053 § END; $ 
: 47 0534 3 
3 67 0535 1 END; 3 
| . 

| Ps 

00D1 8F BB 00000 RMSCLEAN_BDB:: | : 

PUSHR #*M<RO,R4,R6,R7> + 0454 $ 

54 3c) OA 9 00004 MOVL 60(IRAB), BDB : 0508 | : 

0B 13 00008 BEQL 1$ : : 

3c «6 AD-—s«S OOOOA CLRL 60(IRAB) : 0511 : 

7E 04 0000D CLRL -(SP) 3; 0512 i 

00006 30 OOO0F BSBW RMS$RLSBKT ; : 

5E 4 CO 00012 ADDL2 #4, SP z 3 

54 0084 ¢9 09 00015 1$: MOVL 132(IRAB), BDB : 0518 : 

Oc 13 QOOO1A BEQL $ ; : 

0084 ¢9 D4 000IC CLRL 132.C1RAB) : 0521 : 

7E Bs 00020 CLRL (SP) ; 0522 ; 

oops B08 ¢ BSBW RAS. SBKT : 3 

5E 4 ¢ 0 ADDL2 #4, SP : | : 

54 20. Ad 09 00 8 2%: MOVL 2(1RAB), BDB * 0528 : 

0B 1 002C BEQL 3 g 

20 AD D4 OO0ZE CLRL 2( I RAB) ; 0531 3 

7E Bs 0031 CLRL -(SP) ; 0532 3 

00006 30 00033 BSBW RMSRLSBKT : : 

5E oe CO 000 ADDL2 2 5 3 

oop1 BF BA 00039 38: POPR #*M<RO,R4,R6,R7> ; 0535 | ; 

5 0003D RSB ; ; 


-_ 
RM3PUTERR 16-Sep-1984 01:58:54  VAX-11 BLiss-32 v4.0-742 : 
VOL- OOD RMSCLEAN_BDB eR eet a et Bt Pee gt ar ee oe oor 1 


~w 
<z 
Os 


> 474 § 1 
> 475 1 END 

> 4? 8 1 

; 47 539 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 296 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Tp eae ke Sere eee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 51 1 154 00:00.4 

$ COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RM3PUTERR/OBJ=OBJ$:RM3PUTERR MSRC$:RMSPUTERR/UPDATE=(ENHS$:RMSPUTERR) 


; size: 296 code + 0 data bytes 


un Time :09. 
ey Time: 00:19.5 
Lines/CPU Min: 444 
Samay A Magda 15559 
pee | Used: 103 pages 
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